Chip 1998 September/CHIP NET Rehberi Eylül 1998.iso/ftp/ADFiles/_setup.1/ADFiles.exe/0/RCDATA/TDLOAD/TDLOAD.txt

Text File | 1998-04-27 | 21KB | 811 lines

object DLoad: TDLoad
  Left = 116
  Top = 16
  BorderIcons = [biSystemMenu, biMaximize]
  AutoScroll = False
  Caption = 'Downloader'
  ClientHeight = 523
  ClientWidth = 631
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PanelMain: TPanel
    Left = 0
    Top = 0
    Width = 631
    Height = 523
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 1
    BorderStyle = bsSingle
    TabOrder = 1
    object PanelLog: TPanel
      Left = 3
      Top = 439
      Width = 621
      Height = 77
      Align = alBottom
      BevelOuter = bvNone
      BorderStyle = bsSingle
      TabOrder = 0
      object Logging: TRichEdit
        Left = 0
        Top = 0
        Width = 617
        Height = 73
        TabStop = False
        Align = alClient
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        HideSelection = False
        ParentFont = False
        ParentShowHint = False
        ReadOnly = True
        ScrollBars = ssVertical
        ShowHint = False
        TabOrder = 0
        WordWrap = False
      end
    end
    object PanelInfoLog: TPanel
      Left = 3
      Top = 192
      Width = 620
      Height = 242
      BevelOuter = bvNone
      TabOrder = 1
      object PanelInfo: TPanel
        Left = 0
        Top = 0
        Width = 620
        Height = 242
        Align = alClient
        BevelOuter = bvNone
        BorderStyle = bsSingle
        TabOrder = 0
        object ListDLoad: TListView
          Left = 0
          Top = 0
          Width = 616
          Height = 238
          Align = alClient
          ColumnClick = False
          OnClick = ListDLoadClick
          OnDblClick = ListDLoadDblClick
          Columns = <
            item
              Caption = 'Url'
              Width = 150
            end
            item
              Caption = 'IP address'
              Width = 90
            end
            item
              Caption = 'Files'
              Width = 80
            end
            item
              Caption = 'Remote path/name'
              Width = 120
            end
            item
              Caption = 'Local path/name'
              Width = 120
            end
            item
              Caption = 'Size of File'
              Width = 80
            end>
          HideSelection = False
          OnEditing = ListDLoadEditing
          OnDragDrop = ListDLoadDragDrop
          OnDragOver = ListDLoadDragOver
          PopupMenu = PopupMenu1
          TabOrder = 0
          ViewStyle = vsReport
          SmallImages = SmallImages
          StateImages = SmallImages
        end
      end
    end
    object PanelButtons: TPanel
      Left = 3
      Top = 3
      Width = 621
      Height = 36
      Align = alTop
      BevelInner = bvLowered
      TabOrder = 2
      object btAdd: TRxSpeedButton
        Left = 3
        Top = 3
        Width = 30
        Height = 30
        Hint = 'Add new Url for downloading'
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        OnClick = AddUrl1Click
      end
      object btEdit: TRxSpeedButton
        Left = 34
        Top = 3
        Width = 30
        Height = 30
        Hint = 'Edit selected Url'
        Enabled = False
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        OnClick = EditUrl1Click
      end
      object btDelete: TRxSpeedButton
        Left = 65
        Top = 3
        Width = 30
        Height = 30
        Hint = 'Delete selected Url'
        Enabled = False
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        OnClick = DeleteUrl1Click
      end
      object btDownload: TRxSpeedButton
        Left = 96
        Top = 3
        Width = 30
        Height = 30
        Hint = 'Download selected Url'
        Enabled = False
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        OnClick = ListDLoadDblClick
      end
      object btStop: TRxSpeedButton
        Left = 127
        Top = 3
        Width = 30
        Height = 30
        Hint = 'Stop downloading Url'
        Enabled = False
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        OnClick = Stop1Click
      end
      object PanelTime: TPanel
        Left = 305
        Top = 2
        Width = 314
        Height = 32
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object Label5: TLabel
          Left = 7
          Top = 8
          Width = 69
          Height = 13
          Caption = 'Current Time  :'
        end
        object Label3: TLabel
          Left = 161
          Top = 1
          Width = 69
          Height = 13
          Caption = 'Elapsed time  :'
        end
        object Label29: TLabel
          Left = 181
          Top = 16
          Width = 49
          Height = 13
          Caption = 'Time left  :'
        end
        object CurrentTime: TPanel
          Left = 83
          Top = 7
          Width = 70
          Height = 18
          BevelInner = bvLowered
          Color = clTeal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clLime
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object TimeWork: TPanel
          Left = 236
          Top = 0
          Width = 70
          Height = 16
          BevelInner = bvLowered
          Color = clTeal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clLime
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object TimeLast: TPanel
          Left = 236
          Top = 16
          Width = 70
          Height = 16
          BevelInner = bvLowered
          Color = clTeal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clLime
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
      end
    end
    object SplitterInfoLog: TRxSplitter
      Left = 3
      Top = 434
      Width = 621
      Height = 5
      ControlFirst = PanelInfo
      ControlSecond = PanelLog
      Align = alBottom
      OnPosChanged = SplitterInfoLogPosChanged
    end
    object WorkPanel: TPanel
      Left = 3
      Top = 39
      Width = 621
      Height = 153
      BevelInner = bvLowered
      TabOrder = 4
      object WorkPanelSpeed: TPanel
        Left = 2
        Top = 3
        Width = 617
        Height = 72
        BevelInner = bvLowered
        BevelOuter = bvNone
        TabOrder = 0
        object EveryTime: TPanel
          Left = 202
          Top = 2
          Width = 189
          Height = 68
          BevelOuter = bvNone
          TabOrder = 0
          object Label11: TLabel
            Left = 13
            Top = 47
            Width = 162
            Height = 10
            AutoSize = False
            Caption =
              '|.......|.......|.......|.......|.......|.......|.......|.......' +
              '|.......|.......|'
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clWindowText
            Font.Height = -8
            Font.Name = 'Small Fonts'
            Font.Style = []
            ParentFont = False
          end
          object Label12: TLabel
            Left = 11
            Top = 56
            Width = 167
            Height = 10
            Caption =
              '0 (b/s)                        5000                          100' +
              '00'
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clWindowText
            Font.Height = -8
            Font.Name = 'Small Fonts'
            Font.Style = []
            ParentFont = False
          end
          object RxLabel3: TRxLabel
            Left = 39
            Top = 6
            Width = 109
            Height = 14
            ShadowColor = clWhite
            Caption = 'Average speed (b/s)  :'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object PanelAvSpeed: TPanel
            Left = 11
            Top = 22
            Width = 166
            Height = 28
            BevelInner = bvLowered
            BorderWidth = 1
            TabOrder = 0
            object LabelBot1: TLabel
              Left = 3
              Top = 3
              Width = 160
              Height = 22
              Align = alClient
              Color = clWhite
              ParentColor = False
            end
            object AvSpeedBar: TLabel
              Left = 3
              Top = 3
              Width = 160
              Height = 22
              AutoSize = False
              Color = clMaroon
              ParentColor = False
            end
            object AvSpeedNum: TRxLabel
              Left = 43
              Top = 6
              Width = 8
              Height = 14
              ShadowColor = cl3DLight
              Transparent = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              ParentFont = False
            end
          end
        end
        object PanelDownload: TPanel
          Left = 1
          Top = 2
          Width = 189
          Height = 68
          BevelOuter = bvNone
          TabOrder = 1
          object Label13: TLabel
            Left = 11
            Top = 48
            Width = 162
            Height = 10
            AutoSize = False
            Caption =
              '|.......|.......|.......|.......|.......|.......|.......|.......' +
              '|.......|.......|'
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clWindowText
            Font.Height = -8
            Font.Name = 'Small Fonts'
            Font.Style = []
            ParentFont = False
          end
          object Label14: TLabel
            Left = 9
            Top = 56
            Width = 168
            Height = 10
            Caption =
              '0 (%)                               50                          ' +
              '       100'
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clWindowText
            Font.Height = -8
            Font.Name = 'Small Fonts'
            Font.Style = []
            ParentFont = False
          end
          object RxLabel2: TRxLabel
            Left = 58
            Top = 6
            Width = 72
            Height = 14
            ShadowColor = clWhite
            Caption = 'Downloaded  :'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object ProgPanel: TPanel
            Left = 10
            Top = 22
            Width = 166
            Height = 28
            BevelInner = bvLowered
            BorderWidth = 1
            Ctl3D = True
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = False
            TabOrder = 0
            object LabelBot: TLabel
              Left = 3
              Top = 3
              Width = 160
              Height = 22
              Align = alClient
              Color = clWhite
              ParentColor = False
            end
            object ProgBar: TLabel
              Left = 3
              Top = 3
              Width = 160
              Height = 22
              AutoSize = False
              Color = clNavy
              ParentColor = False
            end
            object Percent: TRxLabel
              Left = 64
              Top = 4
              Width = 8
              Height = 17
              ShadowColor = cl3DLight
              Transparent = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              ParentFont = False
            end
          end
        end
        object PanelGraphic: TPanel
          Left = 380
          Top = 2
          Width = 234
          Height = 68
          BevelOuter = bvNone
          TabOrder = 2
          object lbGraph: TLabel
            Left = 32
            Top = 59
            Width = 59
            Height = 10
            Caption = 'max  5000 bytes'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -8
            Font.Name = 'Small Fonts'
            Font.Style = []
            ParentFont = False
          end
          object PanelGraph: TPanel
            Left = 32
            Top = 0
            Width = 197
            Height = 61
            BevelInner = bvLowered
            BorderWidth = 1
            Color = clBlack
            TabOrder = 0
            object Graph: TImage
              Left = 3
              Top = 3
              Width = 191
              Height = 55
              Align = alClient
              ParentShowHint = False
              ShowHint = False
            end
          end
        end
      end
      object PanelCalc: TPanel
        Left = 2
        Top = 75
        Width = 617
        Height = 76
        BevelInner = bvLowered
        BevelOuter = bvNone
        TabOrder = 1
        object Label1: TLabel
          Left = 35
          Top = 6
          Width = 57
          Height = 13
          Caption = 'Size of file  :'
        end
        object Label8: TLabel
          Left = 238
          Top = 53
          Width = 78
          Height = 13
          Caption = 'This download  :'
        end
        object Label2: TLabel
          Left = 212
          Top = 29
          Width = 104
          Height = 13
          Caption = 'Previous downloads  :'
        end
        object Label7: TLabel
          Left = 234
          Top = 6
          Width = 82
          Height = 13
          Caption = 'Total download  :'
        end
        object Label4: TLabel
          Left = 456
          Top = 6
          Width = 64
          Height = 13
          Caption = 'Bits per sec  :'
        end
        object Label10: TLabel
          Left = 435
          Top = 29
          Width = 85
          Height = 13
          Caption = 'Av. speed  (b/s)  :'
        end
        object Label6: TLabel
          Left = 37
          Top = 52
          Width = 57
          Height = 14
          AutoSize = False
          Caption = 'Have rest  :'
        end
        object Label9: TLabel
          Left = 481
          Top = 52
          Width = 39
          Height = 13
          Caption = 'Attemt  :'
        end
        object Label30: TLabel
          Left = 16
          Top = 29
          Width = 76
          Height = 13
          Caption = 'Left download  :'
        end
        object SizeOfFile: TPanel
          Left = 97
          Top = 5
          Width = 84
          Height = 18
          BevelInner = bvLowered
          Color = clTeal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clLime
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object CurrentSize: TPanel
          Left = 321
          Top = 5
          Width = 84
          Height = 18
          BevelInner = bvLowered
          Color = clTeal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clLime
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object Previous: TPanel
          Left = 321
          Top = 28
          Width = 84
          Height = 18
          BevelInner = bvLowered
          Color = clTeal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clLime
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object ThisSize: TPanel
          Left = 321
          Top = 51
          Width = 84
          Height = 18
          BevelInner = bvLowered
          Color = clTeal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clLime
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
        end
        object SizeEveryTime: TPanel
          Left = 525
          Top = 5
          Width = 84
          Height = 18
          BevelInner = bvLowered
          Color = clTeal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clLime
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
        object AvSpeed: TPanel
          Left = 525
          Top = 28
          Width = 84
          Height = 18
          BevelInner = bvLowered
          Color = clTeal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clLime
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
        end
        object HaveRest: TPanel
          Left = 97
          Top = 51
          Width = 84
          Height = 18
          BevelInner = bvLowered
          Color = clTeal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clLime
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
        end
        object Attempt: TPanel
          Left = 525
          Top = 51
          Width = 84
          Height = 18
          BevelInner = bvLowered
          Color = clTeal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clLime
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 7
        end
        object BytesLeft: TPanel
          Left = 97
          Top = 28
          Width = 84
          Height = 18
          BevelInner = bvLowered
          Color = clTeal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clLime
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 8
        end
      end
    end
  end
  object PanelExit: TPanel
    Left = 185
    Top = 216
    Width = 271
    Height = 62
    BevelInner = bvLowered
    Caption = 'Waiting for exit  from downloading  ...'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 585
    Top = 301
    object Download1: TMenuItem
      Caption = 'D&ownload from Url'
      OnClick = ListDLoadDblClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object AddUrl1: TMenuItem
      Caption = '&Add new Url'
      OnClick = AddUrl1Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object EditUrl1: TMenuItem
      Caption = '&Edit selected Url'
      OnClick = EditUrl1Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object Stop1: TMenuItem
      Caption = '&Stop download'
      OnClick = Stop1Click
    end
    object Stopalldownloads1: TMenuItem
      Caption = 'S&top all downloads'
      OnClick = Stopalldownloads1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object DeleteUrl1: TMenuItem
      Caption = '&Delete selected Url'
      OnClick = DeleteUrl1Click
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 585
    Top = 357
  end
  object SmallImages: TImageList
    Left = 585
    Top = 329
  end
  object TimerAutoGo: TTimer
    Enabled = False
    Interval = 20000
    OnTimer = TimerAutoGoTimer
    Left = 585
    Top = 385
  end
end